Imports System.Xml
Imports System.Data.SqlClient
Public Class dTblCalificaciones
    Public Function Existe(ByVal CodigoCalificacion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoCalificacion <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoCalificacion", CodigoCalificacion))
        End If
        Return (dConexion.Consultar("STORE_TblCalificacionesBUSCARFiltrado", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function
    Public Function Insertar(ByVal CodigoLocalidad As String, ByVal Nombre As String, ByVal Identificacion As String, ByVal Observacion As String, ByVal CodigoEnte As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoLocalidad <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoLocalidad", CodigoLocalidad))
        End If
        If Nombre <> "" Then
            Parametros.Add(New SqlParameter("@pENombre", Nombre))
        End If
        If Identificacion <> "" Then
            Parametros.Add(New SqlParameter("@pEIdentificacion", Identificacion))
        End If
        If Observacion <> "" Then
            Parametros.Add(New SqlParameter("@pEObservacion", Observacion))
        End If
        If CodigoEnte <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoEnte", CodigoEnte))
        End If
        Return dConexion.ABM("STORE_TblCalificacionesALTA", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoCalificacion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoCalificacion <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoCalificacion", CodigoCalificacion))
        End If
        Return dConexion.ABM("STORE_TblCalificacionesELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoCalificacion As String, ByVal CodigoLocalidad As String, ByVal Nombre As String, ByVal Identificacion As String, ByVal FechaAlta As String, ByVal Observacion As String, ByVal CodigoEnte As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoCalificacion <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoCalificacion", CodigoCalificacion))
        End If
        If CodigoLocalidad <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoLocalidad", CodigoLocalidad))
        End If
        If Nombre <> "" Then
            Parametros.Add(New SqlParameter("@pENombre", Nombre))
        End If
        If Identificacion <> "" Then
            Parametros.Add(New SqlParameter("@pEIdentificacion", Identificacion))
        End If
        If FechaAlta <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaAlta", FechaAlta))
        End If
        If Observacion <> "" Then
            Parametros.Add(New SqlParameter("@pEObservacion", Observacion))
        End If
        If CodigoEnte <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoEnte", CodigoEnte))
        End If
        Return dConexion.ABM("STORE_TblCalificacionesMODIFICAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal CodigoCalificacion As String, ByVal CodigoLocalidad As String, ByVal Nombre As String, ByVal Identificacion As String, ByVal FechaAlta As String, ByVal Observacion As String, ByVal CodigoEnte As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoCalificacion <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoCalificacion", CodigoCalificacion))
        End If
        If CodigoLocalidad <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoLocalidad", CodigoLocalidad))
        End If
        If Nombre <> "" Then
            Parametros.Add(New SqlParameter("@pENombre", Nombre))
        End If
        If Identificacion <> "" Then
            Parametros.Add(New SqlParameter("@pEIdentificacion", Identificacion))
        End If
        If FechaAlta <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaAlta", FechaAlta))
        End If
        If Observacion <> "" Then
            Parametros.Add(New SqlParameter("@pEObservacion", Observacion))
        End If
        If CodigoEnte <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoEnte", CodigoEnte))
        End If
        Return dConexion.Consultar("STORE_TblCalificacionesBUSCARFILTRADO", Parametros)
    End Function
End Class
